home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / INTERNET / HTML Grinder 3.21.sit / HTML Grinder / Grinder Tools / Sequential Linker / background_3885.xml next >
Extensible Markup Language  |  1997-07-01  |  5KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>263</top>
  23.             <right>17</right>
  24.             <bottom>280</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on processglobal allfiles,totalchangesput "0" into totalchangesif the hilite of cd btn "use table of contents page" is true thenput line 2 of cd fld tocpage into tocFileif there is no file tocFile thenanswer "Could not find the Table of Contents page. Either click 窶廚hoose Contents Page...窶" &&ﾂｬ"to choose a new file or uncheck 窶弑se Contents Page窶 to use no file at all."exit processend ifelse put empty into tocfileput length(cd fld betweenlinks) into delLongput the number of lines in allfiles into numfilesget windowscript("Grinding...")set thermometer_max of window "Grinding..." to numfilesrepeat with x = 1 to the number of lines in allfilesset the cursor to busyput line x of allfiles into thisFileput line x-1 of allfiles into prevfileput line x+1 of allfiles into nextfile----create the linksif prevfile is not empty and cd fld prevText is not emptythen put relativepath(thisfile,prevFile) into prevFileelse if tocfile is not empty and cd fld returntext is not emptythen put relativepath(thisfile,tocFile) into prevFileelse put relativepath(thisfile,last line of allfiles) into prevFileput "<a href="&quote& prevFile &quote&">"&cd fld prevtext&"</a>" into prever--if tocfile is not empty and cd fld returntext is not empty ﾂｬand the hilite of cd btn "use table of contents page" is true thenput relativepath(thisfile,tocFile) into relTocFileput "<a href="&quote&relTocFile&quote&">"&cd fld returnText&"</a>" into toccerelse put empty into toccer--if nextfile is not empty and cd fld nextText is not emptythen put relativepath(thisfile,nextFile) into nextFileelse if tocfile is not empty and cd fld returntext is not emptythen put relativepath(thisfile,tocFile) into nextFileelse put relativepath(thisfile,line 1 of allfiles) into nextFileput "<a href="&quote&nextfile&quote&">"&cd fld nextText&"</a>" into nexter----format the linksput empty into addendumif prever is not emptythen put prever&cd fld betweenlinks after addendumif toccer is not emptythen put toccer&cd fld betweenlinks after addendumif nexter is not emptythen put nexter&cd fld betweenlinks after addendumrepeat dellong timesdelete last char of addendumend repeat--put cd fld beforelinks &return & addendum &return & cd fld afterlinks into addendum----get the fileif there is no file thisfile or filetype(thisfile) is not "TEXT" thenbeepnext repeatend ifopen file thisfileread from file thisFile until eofclose file thisfileput it into thecontents----modify the fileput smartattach(thecontents,"<!--Sequential Linkers-->","<!--End of Sequential Linkers-->",addendum,the selectedtext of cd btn "Append",cd fld texto) into newcontentsif (newcontents <> thecontents) and ("error:" is not in newcontents)then ReplaceFile thisfile,newcontents----now move the Grinder iconif iconnum =1then put 3 into iconnumelse put 1 into iconnumset thermometer_value of window "grinding..." to xset i3_name of window "grinding..." to "grinder"&iconnumend repeatclose window "grinding..."alldoneend processon alldoneglobal totalchangesget "Sequential links were added to" && totalchanges && "pages."put "0" into totalchangessend "alldone it" to homie()end alldoneon resetwheelput empty into cd fld tocpageput "<p><hr><center>" into cd fld beforelinksput " | " into cd fld betweenlinksput "<hr></center><p>" into cd fld afterlinksput "Previous Page" into cd fld prevtextput "Contents" into cd fld returntextput "Next Page" into cd fld nexttextput "</body>" into cd fld textoselect line 3 of cd btn appendset the hilite of cd btn "Use Table of Contents Page" to falsesend mouseup to cd btn "Use Table of Contents Page"show cd fld textopass resetwheelend resetwheel</script>
  43. </background>
  44.